dBASE code for PEOpenPrintJob and PEClosePrintJob

The following code is an example of how to open a new print job with PEOpenPrintJob, then close the print job with PEClosePrintJob.

LOCAL Job, cReport, nError
cReport = "C:\dbasewin\samples\myreport.rpt"
Job = PEOpenPrintJob(cReport)
IF Job = 0
    nError = PEGetErrorCode(Job)
    && Handle error
    PEClosePrintJob(Job)
    return
ENDIF
PEClosePrintJob(Job)


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com